home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10080_NAVIGINFO suite.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  7.3 KB  |  146 lines
  1. global gDataPath, gOffsetInNavigFile, gNewMovieNumber, gTHoffsets, gTextLanguage, gInterfaceLanguage, gScreenStatus, gWorking, gINKMATTE, gCASTNUMBOGUS, gCASTNUMGRIDODD, gCASTNUMGRIDEVEN, gSPRITENUMENTETE, gSPRITENUMFIRSTVIGNET, gHISTORYFIRSTRESERVEDVIGNETCAST, gFile1THEMEnvg, gFile2STHEMEnvg, gFile3TITREnvg, gFile4ECRANnvg, gFile5ECRANlst, gFILE6STHEMEnvg, gFILE7TITREnvg, gFILE8ECRANnvg, gCASTNUMETIQUETTE, glstVignet, glstEntete, glstCurrentArrow, glstReturnArrow, glstLeftArrow, glstRightArrow, glstLeftArrowChapter, glstRightArrowChapter, glstUpArrow, glstDownArrow, glstEtiquetText, glstPropHistory, glstIndexPath, glstVignetPath, gCurrentNavigFileID, gZoneSensibleActive, gItemIDSound, gSpriteNumRolledOver, gNbVignet, gVignetHighLighted, gCurrentMovieNumber, gNavigParam, gNavigPopUpVisible, gGridOne, gHistoryButtonActive, gQuitButtonActive, gReturnArrowButtonActive, gLeftArrowButtonActive, gRightArrowButtonActive, gUpArrowButtonActive, gCancelKeyDown, gMouseOver, gMouseOverButton, gMouseOverVignet, gRollOverHelp, gTransitionType, gFreeSprite, gCursorStackInUse, gCursorStack
  2.  
  3. on GetNavigInfo lstNavigFilePointer
  4.   global gPrgKey
  5.   set gCursorStackInUse to 1
  6.   set gCursorStack to [:]
  7.   modifySpecialItemCursors(1)
  8.   watchCursor()
  9.   set gWorking to 1
  10.   if count(lstNavigFilePointer) <> 3 then
  11.     alert("GetNavigInfo lstNavigFilePointer invalide: " && lstNavigFilePointer)
  12.     return 
  13.   end if
  14.   if ((gSpriteNumRolledOver > 2) and (gSpriteNumRolledOver < 7)) or ((gSpriteNumRolledOver > 10) and (gSpriteNumRolledOver < 32)) or ((gSpriteNumRolledOver > 38) and (gSpriteNumRolledOver < 47)) then
  15.     set the cursor of sprite gSpriteNumRolledOver to 4
  16.   end if
  17.   set gSpriteNumRolledOver to 1
  18.   set gVignetHighLighted to gSPRITENUMFIRSTVIGNET
  19.   set glstDownArrow to []
  20.   set glstCurrentArrow to lstNavigFilePointer
  21.   set gCurrentNavigFileID to getAt(lstNavigFilePointer, 2)
  22.   set gOffsetInNavigFile to getAt(lstNavigFilePointer, 3)
  23.   set gNewMovieNumber to getAt(lstNavigFilePointer, 1)
  24.   if gNewMovieNumber <> gCurrentMovieNumber then
  25.     set IONavigInfo to EMPTY
  26.     set lstNavigInfo to []
  27.     if gNewMovieNumber = 0 then
  28.       set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile1THEMEnvg)
  29.       IONavigInfo(mSetPosition, gOffsetInNavigFile)
  30.       set lstNavigInfo to value(IONavigInfo(mReadLine))
  31.       IONavigInfo(mdispose)
  32.       set the text of cast 12065 to getAt(getAt(getAt(lstNavigInfo, 1), gTextLanguage), 1) & RETURN
  33.       setTransitionHeader(12065, 1)
  34.     else
  35.       if gCurrentNavigFileID = 2 then
  36.         set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile2STHEMEnvg)
  37.         IONavigInfo(mSetPosition, gOffsetInNavigFile)
  38.         set lstNavigInfo to value(IONavigInfo(mReadLine))
  39.         IONavigInfo(mdispose)
  40.         set theLine1 to getAt(getAt(getAt(lstNavigInfo, 1), gTextLanguage), 1)
  41.         set the text of cast 12065 to theLine1 & RETURN
  42.         setTransitionHeader(12065, 1)
  43.       else
  44.         if gCurrentNavigFileID = 3 then
  45.           set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile3TITREnvg)
  46.           IONavigInfo(mSetPosition, gOffsetInNavigFile)
  47.           set lstNavigInfo to value(IONavigInfo(mReadLine))
  48.           IONavigInfo(mdispose)
  49.           set theUpperNVGid to getAt(getAt(getAt(getAt(lstNavigInfo, 2), 1), 6), 2)
  50.           set theTEMPlst to getAt(getAt(lstNavigInfo, 1), gTextLanguage)
  51.           if theUpperNVGid = 1 then
  52.             set the text of cast 12065 to getAt(theTEMPlst, 1) & RETURN
  53.             setTransitionHeader(12065, 1)
  54.           else
  55.             if theUpperNVGid = 2 then
  56.               set the text of cast 12070 to getAt(theTEMPlst, 1) & RETURN & getAt(theTEMPlst, 2) & RETURN
  57.               setTransitionHeader(12070, 2)
  58.             end if
  59.           end if
  60.         else
  61.           if gCurrentNavigFileID = 5 then
  62.             if getPos([16, 17, 18, 19, 20, 21, 22, 23, 26, 27, 28, 29, 30, 31, 32, 33, 34], gNewMovieNumber) <> 0 then
  63.               set theGoodCast to 12070
  64.             else
  65.               set theGoodCast to 12065
  66.             end if
  67.             set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile5ECRANlst)
  68.             IONavigInfo(mSetPosition, gOffsetInNavigFile)
  69.             set lstNavigInfo to value(IONavigInfo(mReadLine))
  70.             IONavigInfo(mdispose)
  71.             set theUpperNVGlst to getAt(lstNavigInfo, 3)
  72.             set theGridNVGlst to getAt(lstNavigInfo, 2)
  73.             if getAt(theUpperNVGlst, 2) = 3 then
  74.               set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile3TITREnvg)
  75.               IONavigInfo(mSetPosition, getAt(theUpperNVGlst, 3))
  76.               set lstNavigInfo to value(IONavigInfo(mReadLine))
  77.               IONavigInfo(mdispose)
  78.               set tempLine1 to getAt(getAt(getAt(lstNavigInfo, 1), gTextLanguage), 1) & RETURN
  79.               if theGoodCast = 12065 then
  80.                 set the text of cast theGoodCast to tempLine1
  81.                 setTransitionHeader(theGoodCast, 1)
  82.               else
  83.                 set tempLine2 to getAt(getAt(getAt(lstNavigInfo, 1), gTextLanguage), 2) & RETURN
  84.                 set the text of cast theGoodCast to tempLine1 & tempLine2
  85.                 setTransitionHeader(theGoodCast, 2)
  86.               end if
  87.             else
  88.               if getAt(theUpperNVGlst, 2) = 4 then
  89.                 set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile3TITREnvg)
  90.                 set chapterPointer to getAt(gTHoffsets, gNewMovieNumber)
  91.                 IONavigInfo(mSetPosition, chapterPointer)
  92.                 set lstNavigInfo to value(IONavigInfo(mReadLine))
  93.                 IONavigInfo(mdispose)
  94.                 set tempLine1 to getAt(getAt(getAt(lstNavigInfo, 1), gTextLanguage), 1) & RETURN
  95.                 set IONavigInfo to FileIO(mnew, "read", gDataPath & gFile4ECRANnvg)
  96.                 IONavigInfo(mSetPosition, getAt(theUpperNVGlst, 3))
  97.                 set lstNavigInfo to value(IONavigInfo(mReadLine))
  98.                 IONavigInfo(mdispose)
  99.                 if theGoodCast = 12065 then
  100.                   set the text of cast theGoodCast to tempLine1
  101.                   setTransitionHeader(theGoodCast, 1)
  102.                 else
  103.                   set tempLine2 to getAt(getAt(getAt(lstNavigInfo, 1), gTextLanguage), 1) & RETURN
  104.                   set the text of cast theGoodCast to tempLine1 & tempLine2
  105.                   setTransitionHeader(theGoodCast, 2)
  106.                 end if
  107.               end if
  108.             end if
  109.           end if
  110.         end if
  111.       end if
  112.     end if
  113.     if (gNewMovieNumber >= 0) and (gNewMovieNumber <= 45) then
  114.       set gNavigParam to glstDownArrow
  115.       if gNewMovieNumber <= 22 then
  116.         set Prefix to "a"
  117.         if (gPrgKey = 1) and (gNewMovieNumber <> 0) then
  118.           if (gNewMovieNumber = 4) and (gCurrentMovieNumber = 0) then
  119.             set gPrgKey to gPrgKey + 1
  120.           else
  121.             set gPrgKey to -10
  122.           end if
  123.         end if
  124.       else
  125.         set Prefix to "z"
  126.       end if
  127.       if gNewMovieNumber < 10 then
  128.         set theMovieTarget to Prefix & "0" & string(gNewMovieNumber) & ".DIR"
  129.       else
  130.         set theMovieTarget to Prefix & string(gNewMovieNumber) & ".DIR"
  131.       end if
  132.       puppetManager(0)
  133.       if gTransitionType = 0 then
  134.         go(4, the moviePath & theMovieTarget)
  135.       else
  136.         go(3, the moviePath & theMovieTarget)
  137.       end if
  138.     else
  139.       alert("ChangeMovie gNewMovieNumber invalide: " && gNewMovieNumber)
  140.     end if
  141.   else
  142.     completeNavigation()
  143.     ResetNavigPopUp()
  144.   end if
  145. end
  146.